home *** CD-ROM | disk | FTP | other *** search
/ Atari Forever 4 / Atari Forever 4 / Atari Forever 4.iso / PD_THEMA / CLI / COMMAND.410 / BATCH / BATCH.LZH / TEST.COM < prev   
Encoding:
Text File  |  1992-03-23  |  5.5 KB  |  335 lines
  1. on 11
  2. newalias notext off 13    ; 'newalias'-Test
  3. newalias text on 13        ;        "
  4. newalias tree find -t    ;        "
  5. notext
  6. cls
  7. echo %n%n%n%n%9%9%1Testbatchdatei für COMMAND.PRG
  8. echo %9%9%7von Joachim Wolf
  9. echo %n%n%3Diese Datei dient der Überprüfung der meisten(!) Befehle des Kommando-
  10. echo %3interpreters. Man kann sich aus dieser Datei außerdem Inspirationen
  11. echo %3für eigene Anwendungen holen.
  12. echo %n%3Um ein korrektes Funktionieren zu gewährleisten, muß das
  13. echo %3'errorbreak'-Flag gesetzt sein. Sollte dies nicht der Fall sein, haben
  14. echo %3Sie nun die Möglichkeit, den Test anzuhalten und mit Hilfe von
  15. echo %3"on 2" dies nachzuholen.%n%n
  16. ?stop
  17. clear
  18. cls
  19. echo nach Drücken einer Taste muß 5 mal BELL ertönen%n
  20. wait
  21. text
  22. let bell 5
  23. lbl glocke
  24. bell
  25. wait 1
  26. -- bell
  27. print bell
  28. if bell <> 0 then goto glocke
  29. off 13
  30. echo %nBis jetzt vorhandene Variablen:
  31. text
  32. vardump
  33. wait
  34. cls
  35. off 13
  36. echo es wird jetzt die Variable zaehler bis 100 hochgezaehlt
  37. wait
  38. cls
  39. text
  40. lbl hundert
  41. print zaehler
  42. ++ zaehler
  43. if zaehler < 101 then goto hundert
  44. off 13
  45. echo
  46. ?stop
  47. cls
  48. echo zaehler wird jetzt bis auf Null runtergeteilt%n
  49. wait
  50. cls
  51. text
  52. lbl teilung
  53. print zaehler
  54. 2/ zaehler
  55. if zaehler > 0 then goto teilung
  56. off 13
  57. echo
  58. ?stop
  59. cls
  60. echo zaehler wird auf eins gesetzt und solange verdoppelt
  61. echo bis zaehler > 1000 ist
  62. wait
  63. cls
  64. text
  65. ++ zaehler
  66. lbl tausend
  67. print zaehler
  68. 2* zaehler
  69. if zaehler < 1001 then goto tausend
  70. echo
  71. vardump
  72. off 13
  73. echo
  74. ?stop
  75. cls
  76. echo es werden jetzt alle Variablen auf Null gesetzt
  77. wait
  78. text
  79. clear
  80. vardump
  81. off 13
  82. ?stop
  83. cls
  84. echo es wird der freie RAM-Speicher und die freie Kapazität des aktuellen
  85. echo Speichermediums angezeigt
  86. text
  87. df
  88. free
  89. echo %nTest von 'if ='
  90. if bell = 0 then goto weiter
  91. echo if = funktioniert nicht
  92. stop
  93. lbl weiter
  94. echo 'if =' ok
  95. off 13
  96. ?stop
  97. cls
  98. echo es wurden bis jetzt folgende Befehle getestet:%n
  99. echo off 13, cls, lbl, clear, echo, wait, ?stop, bell
  100. echo -- , ++ , 2*, 2/
  101. echo if < > <> =
  102. echo df , free
  103. echo print , vardump , let, free, df, goto, flags
  104. text
  105. flags
  106. ?stop
  107. off 13
  108. cls
  109. echo es werden jetzt die Cursor- und Mausbefehle getestet%n
  110. echo Mausein
  111. mouseon
  112. wait
  113. echo Mausaus
  114. mouseoff
  115. wait
  116. echo Cursor aus
  117. crsoff
  118. wait
  119. echo Cursor ein
  120. crson
  121. ?stop
  122. cls
  123. echo es werden jetzt weitere Variablenbefehle überprüft
  124. echo bell muß am Ende auf 1000 und zaehler auf 0 stehen%n
  125. wait
  126. cls
  127. text
  128. vardump
  129. += bell 10
  130. += zaehler bell
  131. *= bell 20
  132. *= bell zaehler
  133. /= bell 2
  134. -= zaehler zaehler
  135. off 13
  136. echo Endbelegung der Variablen:
  137. vardump
  138. ?stop
  139. cls
  140. echo es wurden jetzt alle Variablenbefehle getestet
  141. echo %nTest von dir und ls
  142. echo 1. alle Files
  143. echo 2. nur '.prg'-Files
  144. wait
  145. text
  146. dir
  147. dir *.prg
  148. ls
  149. ls *.prg
  150. off 13
  151. ?stop
  152. cls
  153. echo ALIAS-Test
  154. alias
  155. echo neues ALIAS 'juhu'
  156. newalias juhu @test
  157. alias
  158. echo löschen des neuen ALIAS
  159. delalias juhu
  160. alias
  161. ?stop
  162. cls
  163. echo inverse + head-Test
  164. echo der ausgegeben Text darf nicht beachtet werden!
  165. wait
  166. inverse
  167. head test.com
  168. wait
  169. inverse
  170. ?stop
  171. cls
  172. echo 'more' und 'od' werden überprüft (an TEST-file)
  173. wait
  174. more test.com
  175. od test.com
  176. ?stop
  177. cls
  178. echo 'cp', 'cmp' und 'rm' werden getestet
  179. wait
  180. echo
  181. text
  182. cp test.com t.t
  183. cmp test.com t.t
  184. ls t*.*
  185. rm t.t
  186. ls t*.*
  187. off 13
  188. ?stop
  189. cls
  190. echo Test von 'mv'
  191. wait
  192. text
  193. echo "Dies ist ein Test" >test.dat
  194. mv test.dat t.dat
  195. ls t*.*
  196. mv t.dat test.dat
  197. ls t*.*
  198. rm test.dat
  199. off 13
  200. ?stop
  201. cls
  202. echo Überprüfung von 'device', 'version', 'pwd', 'help', 'time' und 'date'%n
  203. wait
  204. help
  205. time
  206. date
  207. pwd
  208. device
  209. version
  210. echo
  211. ?stop
  212. cls
  213. echo Test 'find' und 'string'
  214. echo bei 'find' müssen alle '.prg'-Files auf dem Laufwerk ausgegeben werden
  215. echo bei 'string' müssen alle Files im Directory ausgegeben werden, die
  216. echo das Wort 'device' enthalten.
  217. wait
  218. cls
  219. find *.prg
  220. string device *.*
  221. ?stop
  222. cls
  223. echo Test von 'exist' und 'size0'
  224. exist test.com goto testok
  225. echo 'exist' fehlerhaft!
  226. stop
  227. lbl testok
  228. echo 'exist' korrekt!
  229. size0 t.t goto test2ok
  230. echo 'size0' fehlerhaft!
  231. stop
  232. lbl test2ok
  233. echo 'size0' korrekt!
  234. ?stop
  235. cls
  236. echo Teste 'settab', 'keys', 'setlp', 'defkey', 'h' und 'lock'%n
  237. wait
  238. text
  239. echo teste 'keys'
  240. wait
  241. keys
  242. echo teste 'flags'
  243. wait
  244. flags
  245. echo teste 'setlp'
  246. setlp
  247. flags
  248. wait
  249. echo teste 'resetlp'
  250. resetlp
  251. flags
  252. wait
  253. echo teste 'setlp 1 2 3' und 'resetlp 1 2 3'
  254. setlp 1 2 3
  255. resetlp 1 2 3
  256. flags
  257. wait
  258. echo teste 'defkey 1 @test'
  259. defkey 1 @test
  260. keys
  261. wait
  262. echo teste 'h'
  263. h
  264. wait
  265. cls
  266. echo teste 'lock'%n
  267. lock
  268. wait
  269. echo teste 'settab 5'
  270. settab 5
  271. flags
  272. wait
  273. echo teste 'settab 8'
  274. settab 8
  275. flags
  276. off 13
  277. ?stop
  278. cls
  279. echo Test 'wc' mit File 'TEST'
  280. wc test.com
  281. wait
  282. cls
  283. echo Test des tree-Befehls
  284. wait
  285. find -t
  286. wait
  287. cls
  288. echo Test von 'cat'
  289. wait
  290. cls
  291. cat test.com
  292. wait
  293. cls
  294. echo Test von 'cleararg', 'inquire', '?arg', 'shiftarg' und 'setarg'
  295. echo %n1.inquire-Überprüfung
  296. cleararg
  297. inquire Argumente eingeben:
  298. lbl inquire
  299. echo $0
  300. shiftarg
  301. ?arg 0 goto inquire
  302. wait
  303. echo %n2.setarg-Überprüfung
  304. echo es muß "Argument1 Argument2" erscheinen%n
  305. text
  306. setarg Argument1 Argument2
  307. echo $0 $1
  308. wait
  309. off 13
  310. cls
  311. echo %n Überprüfung von 'while' und 'gosub'
  312. echo Der Prameter i wird bis 20 hochgezählt%n
  313. erase
  314. let i 0
  315. while i < 21
  316.   gosub test_gosub
  317. wend
  318. wait
  319. echo %n Überprüfung von 'findfirst' und 'findnext' %n
  320. findfirst datei$ *.*
  321. while status <> -1
  322.     echo §datei$
  323.     findnext datei$
  324. wend
  325. echo %n%n******** Testende erreicht ********%n
  326. echo soll nicht abgebrochen werden wird der Befehl 'restart' ausgeführt
  327. echo und der Testdurchlauf neu gestartet%n
  328. ?stop
  329. restart
  330. ;
  331. lbl test_gosub
  332.   vardump
  333.   ++ i
  334. return
  335.